unit PerfilDM;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ZDataset, ZSqlUpdate, ZSequence, MainDM, db,QueryConditions;

type

  { TPerfilData }

  TPerfilData = class(TMainDataModule)
    PerfilDatasource: TDatasource;
    PerfilZQuery: TZQuery;
    PerfilZQuerydesc_perfil: TStringField;
    PerfilZQueryid_perfil: TLargeintField;
    PerfilZSequence: TZSequence;
    PerfilZUpdate: TZUpdateSQL;
     procedure DataModuleCreate(Sender: TObject);
    /// Abre o DataSet
    procedure OpenDataSet(); override;
    /// Fecha o DataSet
    procedure CloseDataSet(); override;
    /// Realiza busca
    /// @param(Condicoes são as condições para a busca)
    /// @param(Tabela é a tabela no banco de dados)
    procedure Search(Condicoes: TQueryConditions; Tabela: string); override;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  PerfilData: TPerfilData;

implementation

uses ConnectionDM;

{ TPerfilData }

procedure TPerfilData.DataModuleCreate(Sender: TObject);
begin
    MainDataSet:= PerfilZQuery;
    PerfilZQuery.Open();
end;

procedure TPerfilData.OpenDataSet();
begin
  //  ConnectionData.EmptyQuery(PerfilZQuery, 'perfil');
end;

procedure TPerfilData.CloseDataSet();
begin
  // PerfilZQuery.Close();
end;

procedure TPerfilData.Search(Condicoes: TQueryConditions; Tabela: string);
begin
  ConnectionData.OpenQueryConditions(PerfilZQuery, Tabela, Condicoes);
end;

initialization
  {$I perfildm.lrs}

end.

